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DEC US frogram Library Write-up 


DEC US NO. 8-576 


LOCAL PAL8: LPAL8.SV 


by 

Harold T. Salive & Kim D. Ng, 
Department of Psychiatry, 
School of Medicine, 
University of Auckland 


PAL8 comes.supplied with a symbol table which is 
unlikely to entirely satisfy most PS8 users. It would 
be useful to have available a version of PAL8 which does 
meet the needs of a particular installation, thus, avoiding 
the necessity of patching the symbol table for each program 
being assembled. Constructing a local version of PAL8, 
however, is not easily accomplished. The program included 
with this writeup makes the production of a local PAL8 
extremely simple; output from the program is a file, 
LPAL8.SV, on SYS. 

The user first prepares a FIXTAPE program containing 
a list of additions to or replacements for the symbol 
table. He then runs this program using PAL8. Immediately 
after running PAL8, he loads and starts the construction 
program. The construction program checks to make sure 
that the system and core are as expected and that no more 
than 200 (base 10) total symbols resulted from the FIXTAPE. 
The program then proceeds to GET a new copy of PAL8 and 
change the symbol table. The new local version is then 
SAVEd by the construction program as LPAL8.SV. Finally, 
the program returns control to the MONITOR. 

One general restriction is placed on the system 
configuration. An High Speed Reader must be available! 

The following restrictions on the constructor 
program are all handled by the program itself. The 
program only works on PAL8 where PAL8 is available on SYS 
and LPAL8.SV is not available on SYS. A maximum of 223 
(base 10) total symbols and pseudo-ops are allowed for 
the LPAL8.SV initial permanent symbol table. 


OPERATION: 

1. Prepare a FIXTAPE. For preparation of a FIXTAPE 
to append to or change the symbol table see the DEC 
book Programming Languages (1972) page 14-27 about 
altering the permanent symbol table in PAL III. The 
procedure to follow for PAL8 is almost identical with 
one exception. Append a "$" on to the tape on the 
line following "PAUSE". Tfie resulting FIXTAPE must 



















be on paper tape, 
are: 


EXPUNGE 

FIXMRI TAD=1000 
CLA= 7200 
CAM= 7621 
SDLC= 6 7 74 
FIXTAB 
PAUSE 
$ 


Two short example FIXTAPEs 


CAM=7621 
BSW=7002 
SDLC= 6 7 74 
FIXTAB 
PAUSE 
$ 


Note: PAL8 initially contains 71 symbols and 23 

pseudo-ops. The maximum total symbols allowed by 
the constructor program is 200 to make a grand total 
of 223 (base 10) symbols and pseudo-ops for storage 
in LPAL8. 


2. Run pass 1 of PAL8 with FIXTAPE and then start the 
LPAL8.SV CONSTRUCTOR program as follows: 

DAfter a from MONITOR, type R PAL8(CR) where 

(CR) = RETURN key 

2) To the subsequent type PTR;(CR) 

3) Following the first "t" , load the FIXTAPE on the 
HSR with the reader ON. Then type a char e.g. R 

4) Following the second "t", type CTRL-C to return 
to the MONITOR. PAL8 has now been set up for 
the constructor program. 

5) When the system responds ".", type R ABSLDR(CR) 

6) When the system responds "*", type PTR:=12000/G$ 
where $ = ALT MODE key 

7) When the system responds "t", load the LPAL8.SV 
CONSTRUCTOR program on the HSR. Then type a 
char e.g. R 

8) The constructor program should then begin by 
typing "HELLO!" Answer the two questions the 
program asks and then wait while the program 
completes the construction process and returns 
control to the MONITOR. (For a DECtape system 
there will be about a 50 sec pause after the user 
types the second Y before the program completes 
construction and prints further comments.) 
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EXAMPLE: 



Shown below is the TTY printout for a FIXTAPE and 
LPAL8.SV CONSTRUCTOR run to construct an LPAL8. User 
responses shown are underlined: 


» R PALb 
* PTR: 

V. 

« K AtiSLDR 

* PTR:=1 20e)U/G$ t 

HELLO! 

PROGRAM TO PRODUCE LOCAL PALb LPALb.SU 

DO YOU WANT TO RUN THIS PROGRAM(Y=YES>ANY OTHER CHAR=NO)?Y 
HAVE YOU OUST RUN A FIXTAPECY=YES)?Y 


***LPALb.SU CREATED ON SYS:* * *** 
EXIT TO MONITOR 
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/PROGRAM TO MAKE LOCAL ^AL8 


PAL6 9/4/72 


PAGE 1 


2000 
200 1 
2(40 2 
200 3 
200 A 
200 5 
200 6 

200 7 
20 1 0 

201 1 
20 12 
20 1 3 
20 14 

201 5 
201 6 
20 1 7 
2020 

202 1 
2022 

2023 

2024 

2025 

2026 
2027 
20 30 
20 31 

2032 

2033 
20 34 

2035 

2036 

2037 

2040 

2041 
20 42 
20 43 

2044 

2045 
204 6 
2047 
20 50 
2051 
20 52 
2053 
20 54 

2055 

2056 

2057 
20 60 
20 61 
20 62 


/PHOGKAM TO MAKE LOCAL PAL8 8/30/72 

/DEPT OF PSYCHIATRY, UNIV OF AUCKLAND, NEW ZEALAND 
FIELD 1 
*2000 


6030 


KCF 

6040 


SPF 

4777 * 


JMS MESAGE 

2600 


HELLO /•*♦ f HELLO ! *■ * tPROGRAM TO PRODUCE LOCAL 

4777 ' 


JMS MESAGE 

2632 


HELL02 /DO YOU WANT TO HUN THIS PROGRAM? 

4777 ' 


JMS MESAGE 

2664 


HELL03 /Y=YES 

60 31 


KSF 

52 1 0 


JMP .-1 

6036 


KRB 

6046 


TLS 

6041 


TSF 

52 14 


JMP .-1 

1 376 


TAD (7447 /-"Y 

7640 


SZA CLA 

5775* 


JMP EXIT 

4777 • 


JMS MESAGE 

2672 


FIXTP /HADE YOU JUST RUN A FIXTAPE? 

60 31 


KSF 

5223 


JMP .-1 

6036 


KRB 

604 6 


TLS 

1 376 


TAD (7447 

7650 


SNA CLA 

5235 


JMP ONWRD 

4777 ' 

EX IT1 , 

JMS MESAGE 

271 5 


READ /PLEASE READ INSTRUCTIONS! QUITTING. 

5775 * 


JMP EXIT 

730 1 

onwrd. 

CLA CLL IAC /DEVICE SYS: 

4774 


JMS I (7700 /CALL USR 

0002 


2 

2046 


NAME 

0000 


0 

52 52 


JMP ON /EXIT IF ALL OK 

4777 * 


JMS MESAGE 

2746 


FOUND /LPAL8.SV ALREADY EXISTS ON SYS: 

5232 


JMP EXIT1 

1 420 
0114 
7000 

NAME, 

FI LENA LPAL8.SV 

2326 



7301 

ON, 

CLA CLL IAC /SYS: 

4774 


JMS I (7700 /CALL USR 

0002 


2 /LOOKUP 

20 64 


NAM1 

0000 


0 

7410 


SKP /NO PAL8 ON SYS: 

5773 • 


JMP FND 

4777 * 


JMS MESAGE 

2767 


PAL /PAL8.SV NOT ON SYS: 
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/PROGRAM TO MAKE LOCAL PAL8 


PAL« 9/4/72 


PACE i-1 


M63 

5232 


JMP EXIT1 

64 

2001 

NAM1 , 

FI LENA PAL8.SV 

20 65 

1 A 70 



20 66 

(4000 



2067 

2 326 



2173 

2200 



21 74 

7700 



21 75 

2 52 6 



21 76 

744 7 



2177 

3104 


PAGE 

2200 

7300 

FND, 

CLA CLL 

220 1 

6202 


6202 

2202 

4777 


JMS I (7607 /PICK UP FIRST 2 PAGES OF PAL8 HUN 

2203 

0210 


0210 

220 4 

0200 


0200 

220 5 

0033 


33 

220 6 

5776 ’ 


JMP EXIT! /ERR ON I/O. ERR EXIT 

220 7 

1 775 


TAD I (256 /LOC 56 IN PAL IS SYMBOL COUNT 

2210 

3233 


DCA COUNT 

221 1 

1 774 


TAD I (377 /CHECK IF CONSTANT UNCHANGED 

2212 

1 373 


TAD (-177 

2213 

7650 


SNA CLA 

22 14 

5220 


JMP OK 

22 1 5 

4772 • 

PLL, 

JMS MESAGE 

221 6 

300 5 


LANG /PAL8 MOT FOUND AS EXPECTED (VARIOUS FAILURE 

221 7 

5776' 


JMP EXIT1 

2220 

1 771 

OK, 

TAD I (400 /CHECK TO MAKE SURF, CONSTANT CHANGED IN fi 

2221 

1 370 


TAD (-5602 

2222 

7650 


SNA CLA 

2223 

5215 


JMP PLL 

2224 

1 233 


TAD COUNT 

2225 

1 367 


TAD (-340 

222 6 

7710 


SPA CLA 

222 7 

5234 


JMP 0N2 

2230 

4772 • 


JMS MESAGE 

2231 

3030 


LNTH /TOO MANY SYMBOLS IN TABLE TO SAVE 

2232 

5776 ' 


JMP EXIT1 

2233 

0000 

COUNT, 

0 

2234 

1 233 

0N2 , 

TAD COUNT 

2235 

7106 


CLL RTL /X4 TO GET NBR OF LOCS IN TABLE 

2236 

704 1 


CIA 

2237 

1 366 


TAD (7574 

2240 

330 2 


DCA TRANS /SAVE 1ST ADDR OF SYMBOL TABLE TO BE THANH 

2241 

1 702 


TAD I TRANS 

2242 

1 365 


TAD (-5777 /MAKE SURE TABLE THERE 

2243 

7640 


SZA CLA 

2244 

5215 


JMP PLL 

2245 

6202 

RETM, 

6202 /SET UP MONITOR WITH TRAP 

2246 

4777 


JMS I (7607 /READ IN MONITOR 

2247 

1 000 


1 000 

2250 

0000 


0 

22 SI 

000 7 


7 

22 52 

5776* 


JMP EXIT1 /I/O ERROR EXIT 

22 53 

1 364 


TAD (6213 
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/PROGRAM TO MAKE LOCAL PALb PALb 9/4/72 PAGE 1-2 


2254 

3763 


UCA I (7667 /TRAP CALLS TO MONITOR 

2255 

1 362 


TAD C 5671 

2256 

3761 


DCA I (7670 

2257 

1 301 


TAD ADDR 

22 60 

3760 


DCA I (7671 

2261 

620 1 


620 1 

22 62 

1 357 


TAD (5610 /GET CHAHaC FROM MY PROGRAM! 

22 63 

3756 


DCA I (1207 

22 64 

1 364 


TAD (6213 

22 65 

3755 


DCA I (1206 

2266 

1 300 


TAD TRAP 

2267 

3754 


DCA I (1210 

22 70 

1353 


TAD (7000 

22 71 

3752 


DCA I (1211 

2272 

1 353 


TAD (7000 

2273 

3751 


DCA I (357 /REMOVE TLS PRINT FROM MONITOR 

2274 

1 350 


TAD (7410 

2275 

3747 


DCA I (355 

22 76 

620 3 


620 3 

22 77 

5771 


JMP I (400 /START MONITOR SUBROUTINE 

2300 

230 6 

TRAP , 

LIST 

230 1 

2245 

ADDR, 

KETN 

2302 

0000 

TRAMS, 

0 

230 3 

2452 

X, 

GELIST 

2304 

2467 

Y , 

SALIST 

2305 

7777 

SWICH, 

-1 

2306 

7300 

LIST, 

CLA CLL 

2307 

1 703 


TAD I X /GE SYS:PALb FIRST TIME THEN SA SYSiLPALb SB 

2310 

7450 


SNA 

231 1 

5315 


JMP OUT 

2312 

230 3 


ISZ X 

2313 

6203 


620 3 

2314 

5752 


JMP I (1211 /RETURN WITH CHAR TO MONITOR 

2315 

2 30 5 

OUT, 

ISZ SWICH 

2316 

5746* 


JMP DUN /FINISHED WITH SAVE SYS:LPALb 

231 7 

6202 


6202 

2320 

4777 


JMS I (7607 /PICK UP 1ST 2 PAGES OF NEW COPY OF PALb 

2321 

0210 


0210 

2322 

0200 


0200 

2323 

0033 


33 

2324 

5776' 


JMP EXIT1 /I/O ERR EXIT 

2325 

1 775 


TAD I (256 /GET SYMBOL TABLE COUNT 

2326 

1 345 


TAD (-136 /CORRECT ORIGINAL VALUE? 

2327 

7640 


SZA CLA 

2330 

5215 


JMP PLL 

2331 

1233 


TAD COUNT 

2332 

3775 


DCA I (256 /SET NEW COUNT 

2333 

6202 


6202 

2334 

4777 


JMS I (7607 /STORE BACK THE TWO PAGES AS CHANGED 

2335 

4210 


4210 

2336 

0200 


0200 

2337 

0033 


33 

2340 

5776 • 


JMP EXIT1 /I/O ERR EXIT 

2341 

1 302 


TAD TRANS 

2342 

5744 • 


JMP XX 
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/PROGRAM TO MAKE LOCAL PALb 


PALS 9/4/72 


PAGE 1-3 


2344 

2400 



234 5 

7642 



234 6 

2 524 



234 7 

0355 



2350 

7410 



2351 

0357 



2352 

1211 



2353 

7000 



2354 

1210 



2355 

1 206 



2356 

120 7 



2357 

5610 



2360 

7671 



2361 

7670 



2362 

5671 



2363 

7667 



2364 

6213 



2365 

2001 



2366 

7574 



2367 

7440 



2370 

21 76 



2371 

0400 


1 '* 

2372 

3104 



2373 

760 1 



2374 

0377 



2375 

02 56 



2376 

2032 



2377 

7607 


PAGE 

2400 

3217 

XX, 

DCA T1 

240 1 

1 777 • 


TAD TRANS 

240 2 

1 376 


TAD (200 

240 3 

3220 


DCA T2 

2404 

7300 

BACK, 

CLA CLL /MOVE TABLE OVER TO FIELD 0 

2405 

6213 

• 

6213 

240 6 

1 61 7 


TAD I T1 

240 7 

620 1 


620 1 

2410 

3621 


DCA I C5600 

241 1 

2217 


ISZ T1 

2412 

2221 


ISZ C5600 

2413 

2220 


ISZ T2 

2414 

5204 


JMP BACK 

2415 

6213 


621 3 

2416 

5222 


JMP NWRD 

241 7 

0000 

T1 , 

0 

2420 

0000 

T2, 

0 

2421 

5600 

C5640, 

5600 

2422 

6202 

NVrtD, 

6202 

2423 

4775 


JMS I (7607 /PICK UP TRANSFER LOCS 

2424 

0210 


0210 

242 5 

0200 


0200 

2426 

00 36 


36 

2427 

5774 ' 


JMP EXIT1 

2430 

1 773 


TAD I (537 /LOC FOR SYMB TABLE IN FI 

2431 

l 372 


TAD (-7004 /CHECK ORIG VALUE 
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/PROGRAM TO MAKE LOCAL PALb 


PALb 9/4/72 


PAGE 1-4 


2432 

2433 

2434 

2435 

2436 

2437 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2450 

2451 

2452 
24 53 

2454 

2455 

2456 

2457 

2460 

2461 
24 62 
24 63 

2464 

2465 

2466 

2467 

2470 

2471 
24 72 

2473 

2474 

2475 

2476 

2477 

2500 

2501 

2502 

2503 

2504 
250 5 

250 6 
2507 
2510 

251 1 

2512 

2513 

2514 
251 5 
251 6 
251 7 
2520 


7640 
5771 ' 
1 777 ' 
3773 
1 777 ’ 
1 376 
3770 
6202 
4775 
4210 
0200 
O036 
5774 * 
1 767’ 
3766’ 
5765' 
0 30 7 
0 30 5 
0240 
0 32 3 
0331 
0323 
0272 
0320 
0 301 
0314 
0270 
0215 
0000 
0323 
0301 
0240 
0323 
0331 
0323 
0272 
0314 
0320 
0301 
0314 
0270 
0256 
0323 
0326 
0240 
0260 
0260 
0260 
0260 
0260 
0255 
02 60 
0267 
0263 
0267 


S4A OLA 
JMP PLL 
TAD TRANS 
DCA I <537 
TAD TRANS 

TAD <200 /STORE UP TO TOP PAGE! 

DCA I < 540 
6202 

JMS I <7607 

4210 /SAVE CHANGED VALUES IN PALb LOCAL VERSION 
0200 
36 

JMP EXIT1 
TAD Y 
DCA X 

JMP RETN /GO SAVE LOCAL PALb LPALb.SV 
GELIST j "G 
"E 
240 
"S 
"Y 

"S 

>• • 

"P 

M A 

M L 

"8 

215 

0 

SALIST, "S 
"A 
240 
"S 
"Y 

M S 
»• • 

”L 

P 

"A 

M L 

•*8 

m 

M S 

"V 

240 

M 0 

M 0 

"0 

"0 

••0 
ii w 

••0 

•'3 

"1 


< r: 
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/PROGRAM TO MAKE LOCAL PALb 


PALb 9/4/72 


PAGE 1-5 


2521 

0267 


"1 

2522 

021 5 


2 1 5 

2523 

0000 


0 

2524 

4764 ' 

DUN, 

JMS 

2525 

3047 


FI NI 

2526 

4764 • 

EXIT, 

JMS 

252 7 

3071 


LAST 

2530 

6213 


6213 

2531 

1363 


TAD 

2532 

3762 


DCA 

2533 

1 361 


TAD 

2534 

3760 


DCA 

2535 

1 357 


TAD 

2536 

3756 


DCA 

2537 

5762 


JMP 

2556 

7671 



2557 

1 000 



2560 

7670 



2561 

4207 



2562 

7667 



2563 

6202 



2564 

3104 



2565 

2245 



2566 

230 3 



2567 

2 304 



2570 

0 540 



2571 

2215 



2572 

0774 



2573 

0537 



2574 

2032 



2575 

760 7 



2576 

0200 



2577 

2302 


PAGE 

2600 

3736 

HELLO, 

TEXT 

2601 

3610 



2602 

0514 



260 3 

1417 



2604 

4137 



260 5 

3636 



2606 

2022 



260 7 

1 707 



2610 

2201 



261 1 

1 540 



2612 

2417 



2613 

4020 



2614 

221 7 



261 5 

0425 



261 6 

0 30 5 



261 7 

4014 



2620 

1 703 



2621 

0114 



2622 

4020 



2623 

0114 



2624 

7040 




MESAGE 

SH /LPALb.S'v/ CREATED ON 
MESAGE 

/EXIT TO MONITOR. 

( 6202 
I <7667 
<4207 
I <7670 
<1000 
I <7671 

I <7667 /EXIT TO MONITOR 


/-ttHELLO!~ttPROGRAM TO 


SYSs 


PRODUCE LOCAL PALb LPAB 
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/PROGRAM TO MAKE LOCAL PALtt 


PALb 9/4/72 


PAGE 1-6 


262 5 

1 420 

262 6 

0 114 

262 7 

7056 

2630 

2326 

2631 

0000 

2632 

3736 

2633 

3604 

2634 

1 740 

2635 

31 1 7 

2636 

2 540 

2637 

2 70 1 

2640 

1 624 

2641 

4024 

2642 

1 740 

2643 

2225 

2644 

1 640 

2645 

2410 

2646 

1 123 

264 7 

4020 

2650 

2217 

2651 

0722 

2652 

0115 

2653 

50 31 

2654 

7531 

2655 

0 523 

2656 

7301 

2657 

1 631 

2660 

401 7 

2661 

2410 

2662 

0 522 

2663 

0000 

2664 

4003 

2665 

1001 

2666 

2275 

2667 

1 61 7 

2670 

51 77 

2671 

0000 

2672 

3736 

2673 

1001 

2674 

2605 

2675 

40 31 

2676 

1 725 

2677 

4012 

2700 

2523 

270 1 

2440 

2702 

2225 

2703 

1 640 

2704 

0 1 40 

2705 

061 1 

270 6 

3024 

2707 

0120 

2710 

0550 

271 1 

31 75 

2712 

3105 

271 3 

2351 


HELLOS » TEXT /*-ttDO YOU WANT TO RUN THIS PROGRAM< Y=YES JANY B 


HELL03, TEXT / CHAR=NO)?/ 


FIXTP t TEXT /-tHAVE YOU JUST RUN A FIXTAPE( Y=YES)? / 
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/PROGRAM TO MAKE LOCAL PALB 


PALS 9/A/72 


FAGE 1-7 


271 A 

7700 

2715 

3736 

2716 

5252 

271 7 

201 A 

27214 

0 501 

2721 

2305 

2722 

A022 

2723 

0 50 1 

2 72 A 

0 AA0 

2725 

1116 

2726 

232A 

2727 

2225 

2730 

0 32A 

2731 

1117 

2732 

1 623 

2733 

A00 1 

273A 

0 70 1 

2735 

1116 

2736 

A1 52 

2737 

5237 

27A0 

3636 

27A 1 

2125 

27A2 

1 12A 

27A3 

2 A 1 1 

27AA 

1 60 7 

27A5 

5600 

27A6 

3736 

27A 7 

1 A20 

2750 

01 1 A 

2751 

7056 

2752 

2326 

2753 

A001 

275A 

1 A22 

2755 

0 501 

2756 

0 A31 

2757 

A00 5 

2760 

30 1 1 

2761 

232A 

2762 

23A0 

2763 

1 71 6 

276A 

A023 

2765 

3123 

2766 

7200 

2767 

3736 

2770 

2001 

2771 

1 A 70 

2772 

5 623 

2773 

2 6A0 

277A 

1 61 7 

2775 

2AA0 

2776 

061 7 

2777 

2516 

3000 

0 AA0 

3001 

1 71 6 

3002 

A023 


HEAD/ TEXT /*-t**PLEASE HEAD INSTRUCTIONS AGAIN! **-1 tNUITTB 


FOUND/ TEXT /-tLPALS.SV ALREADY EXISTS ON SYS:/ 


FAL/ TEXT /-tPALB.SV NOT FOUND ON SYS:/ 
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/PROGRAM TO MAKE LOCAL PAL« 


PALH 9/A/72 


RAGE 1-« 


3003 3123 

300A 7200 

3005 3736 LANG, TEXT /—tPALB NOT FOUND IN CORE AS EXPECTED./ 

300 6 200 1 

3007 1 A 70 

30 10 A016 

3011 172A 

3012 A00 6 

3013 1 72 5 

30 1 A 1 60A 
30 1 5 A01 1 
30 1 6 1 6A0 

301 7 0 317 

3020 220 5 

3021 A001 

3022 23A0 

3023 0530 
30 2A 20 0 5 

3025 0 32A 

3026 0 50 A 

3027 5600 

3030 3736 LNTH, TEXT /-tTOO MANY SYMBOLS IN TABLE./ 

30 31 2A17 

3032 17A0 

3033 150 1 

303A 1631 

3035 4023 

3036 3115 

3037 021 7 

30 A 0 1A23 

30 A1 A011 

30 A 2 1 6A0 

30 A 3 2A0 1 

30AA 021A 
30 A 5 0556 

30A6 0000 

30A7 3736 FINISH, TEXT /-t11***LPAL8.SV CREATED ON SYS:***/ 

30 50 3 6 3 6 

30 51 52 52 

30 52 521A 

3053 2001 

30 5 A 1 A 70 
3055 5623 

30 56 2 6A0 

3057 0322 

30 60 0 50 1 

3061 2A0 5 

30 62 0 AA0 

3063 1 716 

306A A023 

3065 3123 

3066 7252 

3067 5252 

30 70 0000 

3071 3736 LAST, TEXT /*tt EXIT TO MONITOR*-: / 
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/PROGRAM TO MAKE LOCAL PALb 


PALb 9/4/72 


PAGE 1-9 


3b 72 

360 5 




3b 7 3 

301 1 




3b 74 

244b 




3b 75 

241 7 




3b 7 6 

401 5 




3b 77 

1 71 6 




31bb 

1 124 




31 b 1 

1 722 




3102 

3736 




3103 

0000 




3104 

0000 

MESAGE# 

0 

/MESSAGE PRINTING SUBROUTINE 

3105 

7300 


CLA 

CLL 

3106 

1 704 


TAD 

I MESAGE 

3107 

3325 


DCA 

TMP 

31 10 

2304 


ISZ 

MESAGE 

31 1 1 

1 725 

NXXT # 

TAD 

I TMP 

31 12 

0377 


AND 

< 7700 

31 1 3 

7012 


RTR 


31 14 

7012 


RTR 


31 1 5 

7012 


RTR 


31 1 6 

4326 


JMS 

TYP2 

31 1 7 

1 725 


TAD 

I TMP 

3120 

0323 


AND 

K77 

3121 

4326 


JMS 

TYP2 

31 22 

2325 


ISZ 

TMP 

3123 

0077 

K77# 

77 


3124 

531 1 


JMP 

NXXT 

3125 

0000 

TMP# 

0 


3126 

0000 

TYP2 # 

0 

/SET UP ASCII CODE AND HANDLE 

31 27 

7450 


SNA 


31 30 

5347 


JMP 

EX2 /EXIT IF 6 BITS OF 0 FOUND 

3131 

1 376 


TAD 

(-40 /LETTER OR OTHER CHAR? 

3132 

7510 


SPA 


3133 

1375 


TAD 

(100 /LETTER 

3134 

1 374 


TAD 

<240 /OTHER 

3135 

1 373 


TAD 

(-336 /- OR t? 

31 36 

7510 


SPA 


31 37 

5344 


JMP 

.+5 /NOPE 

31 40 

7440 


SZA 

/YEP 

3141 

1 372 


TAD 

<2 /CODE 215 = RETURN 

3142 

1 371 


TAD 

(212 /CODE 212 = LINE FEED 

3143 

7410 


SKP 

/DON’T WANT TO CHANGE CODE IN / 

31 44 

1 370 


TAD 

(336 /GET THE CHAR CODE BACK 

3145 

4351 


JMS 

TYPE /PRINT 

3146 

5726 


JMP 

I TYP2 

3147 

6030 

EX 2 i 

KCF 


31 5b 

5704 


JMP 

I MESAGE /EXIT FROM ROUTINE 

31 51 

0000 

TYPE# 

0 

/ROUTINE TO TYPE ONE CHAR 

31 52 

6046 


TLS 


31 53 

6041 


TSF 


3154 

5353 


JMP 

.-1 

31 55 

7200 


CLA 


3156 

5751 


JMP 

I TYPE 

31 70 

0336 




3171 

0212 





AC 
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/PROGRAM TO MAKE LOCAL PAL8 


PAL8 9/A/72 


PAGE l-lt) 


3172 0002 

3173 7442 

3174 0240 

3175 0100 

3176 7740 

3177 7700 


ADDR 2301 
EXIT 2526 
FND 2200 
HELL03 2664 
LNTH 3030 
NXXT 3111 
OUT 2315 
SALIST 2467 
TYPE 3151 
XX 2400 


BACK 

2404 

COUNT 

EXIT1 

20 32 

EX 2 

FOUND 

2746 

GELIST 

K77 

3123 

LANG 

MESAGE 

3104 

NAME 

OK 

2220 

ON 

PAL 

2767 

PLL 

SWICH 

2305 

TMP 

TYP2 

3126 

T1 

Y 

2304 



2233 

C5600 

2421 

3147 

FINISH 

3047 

2452 

HELLO 

2 600 

3005 

LAST 

3071 

2046 

NAM1 

2064 

20 52 

ONVRD 

2035 

2215 

READ 

271 5 

3125 

TRANS 

2302 

241 7 

T2 

2420 


DUN 

FIXTP 

HELL02 

LIST 

NWRD 

0N2 

RETN 

TRAP 

X 


2524 

2672 

2632 

2306 

2422 

2234 

2245 

2300 

2303 



'k 
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